perm filename EDIT.NEW[1,JRA] blob sn#148468 filedate 1975-02-28 generic text, type T, neo UTF8
 
(DEFPROP EDIT 
 (LAMBDA(U Z)
  (PROG (RES1 U1 U4)
   ED4  (COND ((NULL Z) (RETURN RES1)))
	(SETQ U4 (CAR Z))
	(COND ((EDITSTRAT U4) (GO ED2)))
	(SETQ U1 SUBCLAUSES)
   ED1  (COND ((SUBSUME (CAR U1) U4) (GO ED2)))
   ED6  (SETQ U1 (CDR U1))
	(COND (U1 (GO ED1)))
	(SETQ U1 (CDR Z))
	(COND ((NULL U1) (GO ED5)))
   ED3  (COND ((SUBSUME (CAR U1) U4) (GO ED2)))
   ED7  (SETQ U1 (CDR U1))
	(COND (U1 (GO ED3)))
   ED5  (SETQ RES1 (CONS U4 RES1))
   ED2  (SETQ Z (CDR Z))
	(GO ED4))) 
EXPR)